home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 5
/
Gold Medal Software - Volume 5 (Gold Medal) (1995).iso
/
database
/
marks21.arj
/
MARKS.ZIP
/
MARKS.B1
< prev
next >
Wrap
Text File
|
1994-10-31
|
496b
|
32 lines
ECHO OFF
CLS
DATE
CLS
ISAM
RUNCOB MARK01
CLS
IF ERRORLEVEL 002 GOTO DRIVEB
IF ERRORLEVEL 001 GOTO DRIVEA
IF ERRORLEVEL 000 GOTO END
:DRIVEA
ECHO ON
PAUSE Place BACKUP DISKETTE in Drive A
COPY *.FIL A:
COPY *.KEY A:
PAUSE Remove BACKUP DISKETTE from Drive A
ECHO OFF
GOTO END
:DRIVEB
ECHO ON
PAUSE Place BACKUP DISKETTE in Drive B
COPY *.FIL B:
COPY *.KEY B:
PAUSE Remove BACKUP DISKETTE from Drive B
ECHO OFF
GOTO END
ECHO OFF
:END
RUNCOB AD02
ISAM /F
ECHO ON